How Would You Survive?/How Would You Survive (1995)(Grolier)[Mac-PC].iso/pc/credit.dir/00002_Script_2

Text File | 1995-09-12 | 4KB | 170 lines

global PREF_PRESENT , gSysPath , gSysRam , gProjector , gCDPath
--òò This file is used by both the Mac and Windows versions. It lives on the CD-ROM.
--òò This file must: Display the credits and then make a determination as to if the
--òò REGISTRATION Screen should be shown

on startMovie
  set the exitLock = TRUE
  set the colordepth = 8
  testRamEnough()
  -- init cursors
  set the cursor of sprite 10 = [38,39]
  set the cursor of sprite 11 = [38,39]
end

on stopMovie
  set the cursor of sprite 10 = -1
  set the cursor of sprite 11 = -1
  puppetsound 0
end

on getPrefFileStatus
  set sysPath =  gSysPath
  if (the machineType >= 256) then
    -- òòò PC / Windows machine
    openXLib sysPath & "FILEIO.DLL"
    set myFile = FileIO(mNew , "read" , sysPath&"SPREF.TXT")
  else
    -- òòò MAC machine
    --set sysPath = sysPath & "Preferences:"
    if (gProjector = FALSE) then
      --openXLib the pathName & "FileIO.XOBJ"
    end if
    set myFile = FileIO(mNew , "read" , sysPath&"Survive Pref")
  end if

  if (objectp(myFile) ) then
    -- we got a file so we don't need to show the REG form again
    set status = myFile(mStatus)
    if (status = 0) then
      set PREF_PRESENT = TRUE
    else
      -- file not present so we will show REG form
      set PREF_PRESENT = FALSE
    end if
    myFile(mDispose)
    if (the machineType >= 256) then
      -- òòò PC / Windows machine
      closeXLib sysPath & "FILEIO.DLL"
    else
      -- òòò MAC machine
      if (gProjector = FALSE) then
        --closeXLib the pathName & "FileIO.XOBJ"
      end if
    end if
  else
    -- file not present so we will show REG form
    set PREF_PRESENT = FALSE
  end if
  return PREF_PRESENT
end


on disableRegForm
  set the trace = TRUE
  set sysPath =  gSysPath
  if (the machineType >= 256) then
    -- òòò PC / Windows machine
    openXLib sysPath & "FILEIO.DLL"
    set myFile = FileIO(mNew , "write" , sysPath&"SPREF.TXT")
  else
    -- òòò MAC machine
    --set sysPath = sysPath & "Preferences:"
    if (gProjector = FALSE) then
      --openXLib the pathName & "FileIO.XOBJ"
    end if
    set myFile = FileIO(mNew , "write" , sysPath&"Survive Pref")
  end if
  if (objectp(myFile) ) then
    myFile( mWriteString ,  "HWYS CD-ROM")
    myFile(mDispose)
    if (the machineType >= 256) then
      -- òòò PC / Windows machine
      closeXLib sysPath & "FILEIO.DLL"
    else
      -- òòò MAC machine
      set sysPath = sysPath & "Preferences:"
      if (gProjector = FALSE) then
        --closeXLib the pathName & "FileIO.XOBJ"
      end if
    end if
  end if
  set the trace = FALSE
  doSurvive
end

on doSurvive
  go movie gCDPath&"OPENING"
end

on testButtonClick
  set thisSprite = the clickOn
  set thisCast = the castNum of sprite thisSprite
  set the castNum of sprite thisSprite = thisCast + 1
  upDateStage
  repeat while (rollover(thisSprite) and the mouseDown)
  end repeat
  set the castNum of sprite thisSprite = thisCast
  upDateStage
  if (rollover(thisSprite)) then
    puppetSound "FeatureButSplClk.AIFF"
    updatestage
    set retCode = TRUE
  else
    set retCode = FALSE
  end if
  return retCode
end

on doCredits
  if (testButtonClick()) then
    go "credits"
  end if
end

on doSkipCredits
  if (testButtonClick()) then
    if (getPrefFileStatus()) then
      doSurvive
    else
      go "Register"
    end if
  end if
end

on doNext
  if (testButtonClick()) then
    go marker(1)
  end if
end

on doTestReg
  if (testButtonClick()) then
    if (getPrefFileStatus()) then
      doSurvive
    else
      go "Register"
    end if
  end if
end


on testRamEnough
  if (the machineType >= 256)  then
    -- Windows machine
    -- test gSysRam agains min limit: gSysRam units are 1KBytes
    if (gSysRam <  10*1024) then -- test 10 MB
      set aStr = "Your system has insufficient memory available to run "
      set aStr = aStr&"E&"How Would You Survive?""E
      set aStr = aStr&" properly. For further information please see the "
      set aStr = aStr"E&"Memory Issues""E
      set aStr = aStr&" section of the README.TXT file on the "
      set aStr = aStr&"How Would You Survive? CD-ROM."
      --alert  aStr
      set the text of cast 14 = aStr
      go "showAlert"
    end if
  end if
end